home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / oasis / oasisegs.lha / egs / fib.lisp < prev    next >
Lisp/Scheme  |  1992-04-17  |  202b  |  8 lines
  1. (proclaim '(function fib (fixnum) fixnum))
  2. (defun main-fib () (fib 30))
  3. (defun fib (n)
  4.        (declare (type fixnum n))
  5.        (if (<= n 1) 1
  6.            (+ (fib (- n 1))
  7.               (fib (- n 2)) )))
  8.